unit uProjectBiiblioteca;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls;

type
  TfrmPrin = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Memo1: TMemo;
    PageControl2: TPageControl;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Label5: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    edEditora: TEdit;
    edEdicao: TEdit;
    edVol: TEdit;
    edCodLiv: TEdit;
    Label10: TLabel;
    eddAutor: TEdit;
    ComboBox1: TComboBox;
    Label15: TLabel;
    ListBox1: TListBox;
    Label6: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    edTitLiv: TEdit;
    edAnoPub: TEdit;
    PageControl3: TPageControl;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    procedure Livro1Click(Sender: TObject);
    procedure Categoria1Click(Sender: TObject);
    procedure Aluno1Click(Sender: TObject);
    procedure Locao1Click(Sender: TObject);
    procedure Baixa1Click(Sender: TObject);
    procedure Pendncias1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrin: TfrmPrin;

implementation

uses uProjectBiiblioteca4, uProjectBiiblioteca6, uProjectBiiblioteca5,
  uProjectBiiblioteca1, uProjectBiiblioteca3, uProjectBiiblioteca2;

{$R *.dfm}

procedure TfrmPrin.Aluno1Click(Sender: TObject);
begin

  try
    frmCadUs := TfrmCadUs.create(self);
    frmCadUs.showmodal
   except
    freeAndNil(frmCadUs);
  end;

end;

procedure TfrmPrin.Baixa1Click(Sender: TObject);
begin
  try
    frmDev := TfrmDev.create(self);
    frmDev.showmodal
   except
    freeAndNil(frmDev);
  end;
end;

procedure TfrmPrin.Categoria1Click(Sender: TObject);
begin

  try
    frmCadCat := TfrmCadCat.create(self);
    frmCadCat.showmodal
   except
    freeAndNil(frmCadCat);
  end;

end;


procedure TfrmPrin.Livro1Click(Sender: TObject);
begin

  try
    frmCadItem := TfrmCadItem.create(self);
    frmCadItem.showmodal
   except
    freeAndNil(frmCadItem);
  end;

end;

procedure TfrmPrin.Locao1Click(Sender: TObject);
begin
  try
    frmLoc := TfrmLoc.create(self);
    frmLoc.showmodal
   except
    freeAndNil(frmLoc);
  end;
end;

procedure TfrmPrin.Pendncias1Click(Sender: TObject);
begin

  try
    frmPend := TfrmPend.create(self);
    frmPend.showmodal
   except
    freeAndNil(frmPend);
  end;

end;

end.
